|
|
 |
|
|
|
|
108: Set mvarpDBConnection = New ADODB.Connection
109: With mvarpDBConnection
110: ' Open a connection using an ODBC DSN.
111: .ConnectionString = argConnStr 'DSN=Pubs;UID=sa;PWD=;
112: .ConnectionTimeout = 30
113: .Open
114: ' Find out if the attempt to connect worked.
115: If .State = adStateOpen Then
116: ' MsgBox Connection successfully established
117: ' Else
118: ' MsgBox Connection not successfully established
119: End If
120: End With
121: Exit Sub
122: openConnectionErr:
123: ' For Each m_rdoError In rdoErrors
124: ' clsAppTransactions.addTrans2Text m_rdoError.Number & m_rdoError.Source & m_rdoError.Description
125: ' 'rdoEngine.rdoErrors(iErrCnt).Number &
'rdoEngine.rdoErrors
(iErrCnt).Source & 'rdoEngine.rdoErrors(iErrCnt).Description
126: ' Next
127: ' clsAppTransactions.addTrans2Text Connection to database was not successful
128: ' clsAppTransactions.showLog
129: ' openConnection = gFAILURE
130: MsgBox CStr(Err.Number) & : & Err.Description
131: Set mvarpDBConnection = Nothing
132: End Sub
133:
134: '##ModelId=352AB4CD0064
135: Public Property Let pTblColumns(ByVal vData As rdoColumns)
136: 'used when assigning a value to the property, on the left side of an assignment.
137: 'Syntax: X.pTblColumns = 5
138: mvarpTblColumns = vData
139: End Property
140:
141:
142: '##ModelId=352AB4CC0334
143: Public Property Get pTblColumns() As rdoColumns
144: 'used when retrieving value of a property, on the right side of an assignment.
145: 'Syntax: Debug.Print X.pTblColumns
146: Set pTblColumns = mvarpTblColumns
147: End Property
148:
149:
150:
151: '##ModelId=352AB4CD028A
|
|
|
|
|
|